home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
basic
/
aa_array.zip
/
DEMO.BAS
< prev
next >
Wrap
BASIC Source File
|
1994-12-02
|
767b
|
42 lines
Option Explicit
Type testInteger
int As Long
End Type
Global Const testInteger_ut = "long"
Type testIntLong
lng As Long
int As Integer
End Type
Global Const testIntLong_ut = "long, integer"
Type testString
str As String
End Type
Global Const testString_ut = "string"
Type testFixed30
str As String * 30
End Type
Global Const testFixed30_ut = "string*30"
Type testAll
int As Integer
lng As Long
sngl As Single
dbl As Double
crrncy As Currency
str As String
str50 As String * 50
int2 As Integer
End Type
Global Const testAll_ut = "Integer, Long, Single, Double, Currency, String, String*50, Integer"
'Global Const testAll_ut = "Integer, Long, Single, Double, Currency, Integer"